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ksfo-client.txt 

# ! /usr/1 ocal /bi n/perl 

# Webchat(tm) Client v 0.2 

# copyright (c) 1995 internet Roundtable Society 

# Programmed by Michael Fremont, email: webchat@irsociety.com 

# This program is free software; you can redistribute it and/or modify 

# it under the terms of the gnu General Public License as published by 

# the Free Software Foundation; either version 2 of the License, or 

# (at your option) any later version. 

# This program is distributed in the hope that it will be useful, 

# but without any warranty ; without even the implied warranty of 

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 

# gnu General Public License for more details. 

# You should have received a copy of the Gnu General Public License 

# alonq with this program; if not, write to the Free Software 

# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. 



# this script is executed when a user submits the "chat" form. 

#LITERALS 

# 

$LOCK_SH = 1; 
$LOCK_EX = 2; 
$LOCK_NB = 4; 
$LOCK_UN = 8; 

$TRUE = 1; 
$ FALSE = 0; 

#GLOBALS 

# 

Client = "http:/cgi-bin/nph-client#anchorl"; 

# the following line is for the www.irsociety.com system 

#$talkfile = "/home/webchat/transcri pts/ksfo" ; 

# the following line is for the webchat . servi ce. digital system 
ntalkfile 

"/usr/local/httpd/htdocs/webchat/transcri pts/ksfo" : 
Stalkfile 

Vhome/1 anshark/www/pages/webchat/t ranscri pts/ksfo" ; 

$point„gif = 

"htt p: //www . cybertoday . com/cybertoday/webchat/poi nt . gi f M ; 

$webchat_logo 

"http://www. ccnet . com/1 aporte/images/ksfol ogo.gif " ; 

$about_local_server = "nttp: //www. cybertoday. com/" ; 

$local__tz = "PDT C-0700 GMT)"; 

$read_block_size = 512; 

$num_context„paras = 0; 

$num_context_paras_when_starting = 10; 

$para_mark_size =7; # 7 digits (space padded) 

$back_jump = 10; 

$way_backl_when =40; 

# get the form 
&ReadParse; 
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ksfo-cl ient . txt 
$last_read_para = $in{last_read_para} ; 
$wants_dates_printed = $in{wants_dates^_printed}; 
$back_para = $i n{back_para} ; 

# we've changed to letting you specify how far back you want to scroll 

# we're leaving the old code in case we go back 
if($in{Back} > 0) 

{ 

Sback = 5TRUE; 

$back_para = $back_para - $back_jump; 
(Sbacklpara < 1) && ($back_para = 1; ; 

# $last_read_para - $back_para; 
$last_read_para = $last_read_para - $in{Back}; 
($last_read_para < 1) && ($last_read_para = 1); 
} 



#M ! for debuggi ng 
#if (Sin{inputText} eq 

# { 

# $in{handle} = "Michael Fremont"; 

# $in{lnputText} = "hello, world!"; 

# } 

# open a (properly initialized) transcript file 

# later: if need to die, put text in some log file somewhere 
open (TRANSCRIPT , M +<$tal kf i 1 e") II die "client 

can't open transcript file"; 

# If the user input any text, add it to transcript file 
($in{InputText} ne "" && Sback eq "") && &add_to_transcript ; 

# Update the output area or send error message if nothing new 
&o u t p u t_n e w_f o r m ; 

exit; 



sub output_new_form 

# if there is new output for this user, send it to him. otherwise return 

# "no new info" error message to his browser so it keeps his current state 



local ($buf, Stbuf, $last_para, $ found, $amount_to_read) ; 

local ($para_num, Sdate, Shandle, SheadURL, SheadURLsi ze, Stext); 



# look for first context paragraph that is to be output to user 

# note - it may not be in transcript file anymore, if the file was pruned 

# but for this version, assume pruning has not yet been implemented 

$fi rst_context_para = $last_read_para - $num_context„paras ; 
($f i rst_context_para < 1) && ($fi rst_context_para = 1;; 
$f f i rst_context_para = 
"\0" . 

pack( r, A$para_mark_si ze" , $f i rst_context_para) . 

"\1"; 

# read a block from the end of the file and look for the context para. 
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